LABEL 0O00O000OPR1MER0O1751OOCC LX Ud JEC T /RL'mU i F I LE 5QURCEF ILE«SYMBUl/DCK lLL**-OUUOOOO 



OBJECT /READ 



SMWSclKl 



10 

I 11 

12 

13 
i 14 

15 

16 
! 17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 ~ 

32 

33 

34 

35 

36 

37 ~ 

38 



40 

1 41 

42 

43 

I 44 

45 

46 

i 47 

48 

49 




Ml ' 



t!l' 



10 

11 



13 
14. 
15 



16 
17 
18 



19 
20 
21 



22 
23 
24 
25 



27 
28 



30 

31 ' 



32 

33 
34 

35 



36 
37 " 



38 
39 



41 
42 



, »7 
18 
49 
50 
51 
52 
53 



54 

55 



COMMENTJ * TITLE: B55O0/B57C0 MARK XIV SYSTEM RELEASE * 00000010 

* FILE IDt SYMBOL/DCFILL TAPE IDS S YM80L2/F I LEOOO * 00000011 
* THIS MATERIAL IS PROPRIETARY LU RUPKLUGhS CQRPU HAT IO N * nnoooni ? 

* AND IS NOT TO BE REPRODUCED* USED* OR DISCLOSED * 00000013 

* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE QR UPON * 00000014 
» WRTTTfN flUTHflRTZATlQN. OF THE PATFhT OlVTSTnM nP * 00000015 



* BURROUGHS CORPORATION* OETHUIT, MICHIGAN 48232 

* CDPYRRiHT (C) 1 971 j 1972 HLfthliKihS CORPORATION 



00000016 
00000017 

ooQOonia 



* AA320206 



AA332366 AA386657 

DCFILL/PBT 

LAST PATCHED 1?/1 W73 



*; 



BEGIN 

INTEGER COMMON; COMMENT FIRST DECLARED* 
DEFINE N0LlST«CUMMON»1»f 1 SUPPKhSS ALL PRINTED OUTPUT 



FILE MCP DISK SER I AL"DCMCP""STUF.F" ( j, 10* 30 )* 
FILE INT OISK SER I AL"DC INT""STUFF«( 2* 10* 30 ) ', 
rn f niSK riTSK sfhtai rii?nm"MCH"»PftT"f ? .^.SA\;f 



999)i 



FILE PRINT 4(2,15); 
ARRAY CARDC053]; 
ARRAY PKTS E Q 8 293; 



DEFINE NAMESI2E«800#; 
ARRAY NAMECO*NAMESUE-n; 
DEFINE NAMSST7g»10?3#; 



ARRAY NAMSC05NAMSSUE-1 j; 
INTEGER PRTMAX»NAMSMAXi 
riTFTNE INAMFSTPFaEOOiH 



ARRAY INAMEtOt INAMESIZE-Ii; 
DEFINE INAMSSIZE«300#; 
ARRAY TNAMSr0lTft>AMSST7E»1i; 



INTEGER INAMAXWNAMSMAX; 
INTEGER L; 
REAL IJVFL? 



REAL OPT;XCOMPlLE-TIME OPTION wURDSONE BIT PER OPTION 
DEFINE 
BREAKO U T » 0PT.ra7U]g, 



CHECKLINK 

DATACOM 

P C L Q fi 



= 0PT.C46U]** 
= 0PT.U5' 1J** 
3 QEJ^JJULLUJU 



DCSPO 
DEBUGGING 
JIO 



OPT.U3.13#* 
OPT,U2*13#* 

QPT.rannit 



DISKLOG 

DUMPP 

INUUIRY 



SAVERESUtTS 

sharedisk 
statistics 



= OPT. LHOiXiJff 
= OPr.C39»13«* 

? ciPT . uam* * 



OPT,t37»13#* 
* 0PT.C36U)## 
■ OPT. [ 3511 3 »* 



AUXMEMM 
RJE 

Bfi^nninAn 



SEPTICTANK 
PACKETS 
HQNITORR 



= OPT. [341 1]** 
= OPT, [33*13** 
= Q P T . [, 3 2 M 3 # * 



* OPT,C31»13#* 
a OPT.C30»13#* 
s 0PT.f29»n#* 



MAXOPT - 19#; % UPDATE AS OPTIONS AHE ADDED 

ALPHA ARRAY OPT IONS [ C : 2*M AXQPT J ; 
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#C."DCSHa'M 
'("DEBUGGING") 
»f"0FX") 



»C"0ISKLQG") 

»<"DUMP") 

>t"lNQUIRY") 



#("SAVERESULTS") 
* ("SHARED I SK") 
■{"STATISTICS"? 



»Cauxmem m ) 

#("RJE"> 
«£"BrtSOOLOADM 



#{"SEPTICTANK") 
*( "PACKETS") 

*< "monitor* 3 



BOOLEAN 
BEGI N 



STREAM PROCEDURE BITONC A'N )i V ALUE N; 



E ND 



si i=a; skip n 
bitqn:=tally> 
rttqn; 



SB; IF SB THEN TAuLYl*!; 



X 

STREAM 
RFtilN 



PROCEDURE SETBIT(A#N);VALUE M 



END 
J6 



dij=a; skip 
setbit; 



n du; ds:=set; 



PROCEOURE PRINTOPTIONS; 
BEGIN 
IMTEGFR 18 



FORMAT R|CPH0RC"UCVCP.">A5, , • CQMPl LE-T I ME OPTIONS!"); 

HRI.TE.(PHlNTCDBLJ»MC.PHl)R,LEVEL)i 

FOR l» 8 l3i0tT)H>2»J»af t i>6>7yflf^» iSu \7rj4t\Q' itt\\H2 



-DO- 



IF 8ITQNC0PT*47-I) 

WRITE<PRINT 
wRlTECPRlMTrDRi 1){ 



THEN 

#MCP0PTtl3')i 
wRlTF.tPBlNTtDftt n; 



END OF PRINTOPTIONS; 
PROCEDURE FILLOPTIONS; 
FILL nPTTONSf »1 WITH 



"6RS0 
"CHECKLIN« 
" O CWRT TF " 



"RtMOTELQ" 
"VARKSPQS" 
"TRACF " 



"EOQ " 
"DISKLOG " 

"PRI N TC Q R " 



•♦QCB " 

"SAVeRESU" 

"S^SNO " 



"FlLLSYST" 
W NEX,TAUXM« 

"R^ EHA ITQ " 



,, Be500F0R ,, 
"DISPOSAL" 
"PSEUDO " 



"KS 



%%BREAKOUT 
"♦XCHECKUNK 
" .XDATACQ M 



"GGER 
"TA 
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,%UC|_OG 
"/XDCSHO 

" > a; u e b u g g I tvm 
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'SXDFX 

%%DISKL0G 

"»XDUMP 



'IT 



H »XINQUIRY 
"»*SAVERESULTS 
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XSHAHEDISK 



"AT 
"EMWORD 



"♦XSTATISTICS 

♦SXAUXMEM 
"«»RJF 



"MATTER 
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"VPACKETS 
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GIN 

Si :=S; DI :=u> 
IF 16 sr = nr. t^fim 



TA L LYi-W 



equal »*t ally; 
end equal; 
PROcrnuRE setoptiqns; 



000*2000 
OOUVJOUO 
0QO94Q01] 



Btia IN 

INTEGER I; 
FOR i:»Q STFP 



00095000 
00096000 
00097000 



1 UNTIL MA XuVfl uu 



IF NOT BIT0NC0PT#/i7-I) THEN 
IF EQUAL(CARDC1]#0PTI0NSC2XIJ) 
BEG I N 



0QU9800C 
000V9000 
OOlUiJQQO 



THEN 



END? 



SETBITC0PT»47-I)J 

I ;=MAXQPT+i;%FALL THRU 



00101000 
00102000 

fibm^obo 



ENO SETOPTIONS; 

STREAM PROCEDURE MOVE(S*D,W); VALUE W? 
RFaiN sn»s: DTi»n; nsu w, was LNn; 



00104000 
00105000 
00 106000 



PRUCEDURE WRITEARRAYCA^WOROSIZEJ 

HFGTN 



VALUE WQRDSIZt* 

integeh wgrdsue; array acqj; 



00107000 

00108000 
noi09oon 



STREAM PROCEDURE ZEROBUF(B); BEGIN 1 1 *BJ 30 (US * >=8L IT"0 M ) 

INTEGER I»SEGS; ARRAY BUF£G:29]> 

SEGSl*((WnRDSl7E*a9) OlV 30) - Li : 



END) 



00110000 
00111000 
001 1P0O0 



FOR IUO STEP 1 UNTIL $EGS UU BtGlN 
ZEROBUF(BUF); 
M0VE,(AC30itI JtBUF*3Q)j. 



00113000 
O0H4O00 
QQU'iOOO 



ENO 



END, 



write(disk,30,buf[*]) 
writearrayj 

Rnnt EAN STRFAM PHrr.LnilRF SPACFStSi; 



00116000 
00117000 

oouaooo 



BEGIN 

LABEL EXIT/' 

5i ;*s; 



00119000 

00120000 

QQ121QQ0 



8UF SCX" 

tally:*i; 

EX'ff-1 



THEN JUMP OUT TO EXIT; SII«5U1)J 



00122000 
00123000 
QQ124QQC 



spaces;*tally; 
end spaces; 

INTEGER STRFAM PRPCEnilRF 



00125000 
00126000 
00127000 



i cv(s»T) j 



BEGIN 

SltsS; SU*SI+4; 

Di8«Lne lev; 



00128000 
00129000 
Q CU QQQC 



END 



DS:s4 OCT; 
su=s; dust; 
ic v; 



00131000 
00132000 
00133000 



SI:«Sl*2i DSi = 2 OCT. 



REAL PROCEDURE 
VALUE n; 
INTEGFR N; 



OCTALCN); 



00134000 
00135000 
QQ 1 36 QQ Q 



0CTAL« = N,t45l3]&( IF N>7 THEN OCT Ai.( N . [ 24 ? 2 1 J JELSE ) [ 3 » 9 J 39J ; 
PROCEDURE SEOUENCE(ARAY#LlM»lNX#GRTR)i 
VALUE LIMJ . 



00137000 

00138000 

-Q 013 9 0Q Q 



ARRAY ARAYC03; 
INTEGER LIM^IKX; 
BOOL E AN G RTR ; 



00140000 

001*1000 

00142000 



BEGIN 

INTEGER I*L/ 
STREAM PROCEDURE 



00143000 
00144000 
00145000 



M0VEtS < DjD32»M32); 



VALUE D32.M32; 
BEGIN 

SI t«S| Dliilli 
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D32CDS1 
END MOVE* 
Hal. IM-jj 



: 3? WDS); DiS s M3t hDSJ 



WHiLfClNXt*IIsI«»l)iO 00 
BEGIN 
ARAYCLTM1t»ARAYrTlJ 



lj=o; 

WHILE LIfOINXr 
IF L >0 THEN 



; INX + 1 AND GRTH JO L i=L + l ; 



BEGIN 

M0VECARAYn + n,A8AYlU,L.[37S6],L.U3»5J); 
A RAYCI»Uf*ARAV[ l lMU 



-*NO- 



end; 
end; 
s e q ue nced 



BOOLEAN PROCEDURE GREATER (ONE* T*0,NAMS) ) 

VALUE ONE, TWO* 
Real nNr»Twn: .-, . ■,-■ . , - ' . ■ : 

ARRAY NAMSCO]; 
BEGIN 

INTEGER STREAK' PHOCmuRE CCJMH A R \ SOlN (, H 1 t tti ) 

BEGIN 

LABEL UNEQ*EXIT; 

sii«nu cnffwg; ___ __ 



8(if sc/dc then 
go to exit; 

U NEQ I 



JUMP QUI TO Ui\EQ)i 



Sn«Si-i; DI*»0I*U 

IF SC<DC THEN TALLY«*2 ELSE TALLYi*lJ 

E X IT * : : ^_ 



compariso\:»tally; 
end comparison; 
integer li .1.2.1 ,a1 .a2.a.cj 



AJ,I»0NE,C33I153; A2 *»TWO . [ 33fjS3 ' 
L»*MIN{Ll»*0NE.Cl8ll3l#L2JsTW0.tl8»l5 3>; 
IF L>0 THEN 



WHILE L>A AND 

(Cl»COMPAHIbON(NAMb[Ai]*NAMS[A2J))so 
RRfiTN 



OQ 



a»»a+i; 
ax»*ai+x; 

A?mA?+i ; 



XNXL 



end; 
greaterj^if 

GKEA TF R ? 



C=0 THEN Ll>L2 fcLSE ,C»1 



PROCEDURE FILLARR A YCNAMS# NAME, NAMAX^NMSIMAX* STUFF, MCP); 
VAX.UE MCPi ^ 

ARRAY NAMSjNAMECOU __ 



INTEGER NAMAX,NMSIMAX; 

file stuff; 

B OOLEAN MCP; 



BEGIN 

LABEL EOS; 

INTEGER NMSI,NAMI,L,KLASS; 



WHILE TRUE DO 
BEGIN 

READ(STUFF»»,CARO[»3)LEUS3J 



IF «CP THEN 
SETOPTIONS; 
NAMECNAMH«ICV(CARD#aLA5S)»;293l»NMSU 
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00205000 
002U6Q0Q 
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NAMECNAM 
NAMAXS=M 
L:=3 i 



I],L3:5] :=klass-1; 

AX{i\AMAX»NAMl )i 



WHILE SP 
NAMECNAM 
MnVECCAR 



ACEMCARDCU) 
IJ.C18*15JI«U 
C[1 JiNA Mb T NMb l 



DO Ll*L"li 
UL-XJ 



nmsh«nmsi+l; 



end; 
EPS i 



IF MCP ANO AUXMEMMsl THEN MONITORRI *0; 

NMSIMAXI»NMSi; 

CinSC(STUFF)l 



end fillarray; 

procedure sortandlist(imax^name'nams); 

V A LUE IHA X; 



-&EG4 



INTEGER IMAX; 
ARRAY NAME#NAMSCQj; 
&W 



INTEGER IJ 

ARRAY ALFACOINAMtSlZE-li; 

FORMAT FCX8»2(X1.A4." ; " 



ARRAY LINEtOlUJ* 

■s-xant 



FOR 1 t«0 STE 

-SEQUENCE* ALB 

GREATERCNAMECALFACIMAX 



P I UNTIL IMAX 
A»IMAX«*IMAX+1 

CALFACIMA 



DU ALFA[IJl»Ii 
JitNAhECALFAlI U>NAMS)); 



IMAXI=IMAX-1 
IF NOLIST TH 
IF IMAX, fiTR 



EN ELSE 
INA ME SHE 



THFN ^HiNTQPT^QNSi 



FOR I»*0 STEP 1 UNTIL IMAX OU 
BEGIN 
IF NQITST THEN NAMEI I ] . L8 U Q 3 i » ALFA[ I 3 EUSE 



BEGIN 

WRITECLI 

MflVECNAM 



NEC*3#F#0cTaL< 

SfNAMEU 3,C33? 



1*129 )>OCTAL(Ai.FAC 1 3 + 129)); 

15JTfllNF[21> 



NAMEU3.U85 

M0VE(NAMSrNAMECALFACI3 

NAM£[ALFA[I3 



153); 
3,L33113)3#LINECB]* 

J_±l 3 JL mJJJ 



NAME! 1 3, 
WRITECPR 



lb:io3«*alfaci3; 
int»15*linec*3); 



end; 
end sortandlist; 
leveli«"xv,2 "} i 5 chh ■ left justified 



filloptions; 

fillarray(na 

FIL LARRAYC I N 



xs*name#prtmax 

AMS'INAHEMNAM 



»NAMSMAx»MCP»TRuE)i 
AXMNAMSMAX M MfFAL SE ); 



sortandlistc 

SORTANDLlST( 
PRTSrnnuai f; 



PRTMAx»NAME,NA 

inamax*iname»i 
vel; 



m3)j hrite<printcpage3); 
namsj; 



PRTSC013»=0P 
PRTSC023»*PR 
PRT3C03H"NA 



t; 

tmax; 

ksmax; 



PRTSt04JlaIN 
PRTSC053*«IN 
WRITFARRAY(P 



amax; 

AMSMAX; 
RTSt 30)1 



writearraycn 
writearray(n 
w ri te arr ay ci 



AME'PRTMAX+1); 
AMSfNAMSMAX); 
KiAMt, TNAMAX+1 L 
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00252000 
00253000 
00254000 
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END. 



WRITEARRAYU 
LOCK(DISK»*) 



NAMS*INAMSMAX). 

; 
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E.ND/END. LAST CArtD ON OCROlNti 

si «- a; di * b; si * si + 4; 

QOOooooooooonrncnx>A4fiGi<- 



TAPE 
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LABEL XI T; 
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